home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 12 / Amiga Plus Sonderheft Amiga 12.iso / rexx / animinfo.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-31  |  1KB  |  47 lines
  1. /*
  2. ------------------------------------------------------------
  3.  animInfo.rexx
  4.  
  5.  This script demonstrates the ARexx-animInfo-command.
  6.  
  7.  Copyright ©1996 WK-Artworks
  8. ------------------------------------------------------------
  9. */
  10.  
  11. if ~show('P','Wildfire') then do
  12.  say " Error: The Wildfire-program must be started before executing this script."
  13.  exit
  14. end
  15.  
  16. ch1='22'x
  17. address 'Wildfire'
  18. options results
  19. t_getanimdrawer
  20. preset=result
  21. t_getfile preset
  22. fn=result
  23. if fn="" then exit
  24. t_animinfo fn
  25.  
  26. t_getwidth
  27. width=result
  28. t_getheight
  29. height=result
  30. t_getdepth
  31. depth=result
  32. t_getframes
  33. frames=result
  34.  
  35. if ~open(script,"t:wf.tmp",'W') then do
  36. /*  message "Error: Couldn't open script"*/
  37.   exit
  38. end
  39. call writeln(script,"The selected animation")
  40. call writeln(script,ch1 || fn || ch1)
  41. call writeln(script,"has a resolution of " || width || "x" || height || "x" || depth)
  42. call writeln(script,"and consists of " || frames || " frames.")
  43. call close(script)
  44. txt_text "t:wf.tmp"
  45. txt_wait
  46. address command "delete >NIL: t:wf.tmp"
  47.